home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 090 / byt86jun.arc / FRACTAL.ARC / BROWN.BAS < prev    next >
Encoding:
BASIC Source File  |  1986-02-26  |  640 b   |  26 lines
  1. 1 REM BROWN.BAS is in MSX BASIC with MUSIC MACRO
  2. 2 REM commands for the Yamaha CX5-M music computer
  3. 10    _INIT: _INST (1)
  4. 20    X=RND(-TIME)
  5. 30    N=60:L=2
  6. 40    FOR X = 1 TO 25
  7. 45    REM R varies the range of the distribution
  8. 50    R=3:GOSUB 130:N=N+D
  9. 60    IF N>120 or N<25 THEN N=N-2*D
  10. 70    R=.667:GOSUB 130:L=L+D
  11. 80    IF L<1 OR L>4 THEN L=L-2*D
  12. 90    _PHRASE(1,"L=L;",N=N;")
  13. 100    NEXT X
  14. 110    _PLAY(1,1):_WAIT(1)
  15. 120    INPUT"AGAIN";DD:GOTO 110
  16. 130    REM    BROWNIAN ROUTINE
  17. 140    S=0:REM  S is Sum
  18. 150    FOR I = 1 TO 12
  19. 160    S=S+RND(1)
  20. 170    NEXT I
  21. 180    D=INT(R*(S-6))
  22. 190    RETURN
  23. M    BROWNIAN ROUTINE
  24. 140    S=0:REM  S is Sum
  25. 150    FOR I = 1 TO 12
  26. 160    S=S+